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EDITO 
La télématique 





Comme vous le savez 
déjà, la télématique est le 
fruit de l'informatique et 
des communications. De 
nombreux constructeurs, 
et non des moins 
prestigieux ( IBM, Rank 
Xerox ), développent 
depuis plusieurs années 
leur secteur télématique. 
Pourquoi ? 

En effet, à quoi peut bien 
être utile la télématique? 
Schématiquement, la 

télématique peut se 
définir comme l'échange 
et le traitement d'une 
information partant d'un 
point A pour aller à point 
B, le point A et le point B 
pouvant être distants de 
plusieurs centaines, voire 
milliers de kilomètres. 

"Il n'est pas bon pour un 
ordinateur de rester seul". 
Tel est le credo de la 
télématique qui veut que 
chaque ordinateur soit 
relié à un autre ordinateur 
pour COMMUNIQUER. 

Si les lecteurs de 
disquettes, les 

imprimantes, sont très 
utilisés, "COMMUNIQUER 
c'est à dire le MODEM" 



est le périphérique 
dernier cri, must qJe 
tout utilisateur de micro- 
ordinateur se doit de 
posséder sous peine de 
passer pour un 

pithécanthrope à l'âge ... 
télématique II! 

Alors, ne passez plus 
pour un primate; de grâce, 
n'oubliez pas que les 
modems, ça existe! 
Branchez-vous sur le 
centre serveur Exelvision. 
Des tas, oui des tas de 
bonnes nouvelles vous y 
attendent. Non ne croyez 
pas que le rédacteur en 
chef radote. Non, pas du 
tout. J'ai vu, de mes yeux 
vu des échanges entre 
un EXL 100 et le centre 
serveur. Ca vous épate ? 

Au fait, nous n'allons pas 
vous faire languir plus 
longtemps, il est de notre 
devoirde vous 
communiquer les services 
qui seront disponibles le 
25 Octobre 1986 sur 
FUNITEL. 

-Boîte aux lettres 
-Boîte aux logiciels ( 
concours, astuces, 

bidouilles et citrouilles) 



Ecran de 
sélection 
du centre 
serveur 
Exelvision 
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-Le courrier télématique 

-Messagerie 

-Téléchargement de 

logiciels 

-Et enfin téléchargement 

de fichiers EXELQUAD 

Vous êtes en droit de 
vous demander qui se 
cache derrière 

EXELQUAD. EXELQUAD 
est un logiciel, permettant 
de créer et d'exploiter des 
questionnaires. Ces 

questionnaires couvrent 
une grande diversité de 
sujets. 

Le centre serveur 
Exelvision se trouve sur le 
réseau Télétel 3 au 
service FUNITEL Nous 
allons vous narrer une 
semaine telle que pourrait 
l'envisager une famille qui 
se servirait d'un EXL 100 
relié par modem au 
réseau Télétel. 



Une semaine télématique 
de la famille Connectée. 
Lundi: 

Robert, le fils est un jeune 
diplômé. Même avec un 
diplôme les temps sont 
durs... Il recherche pour 
son premier emploi 

une société qui lui fera 
confiance. Le service de 
l'APEC lui indiquera les 
offres d'emploi, et 
comment contacter ses 
futurs employeurs. 



Mardi 

C'est le dernier jour pour 
remplir les grilles du Loto 
sportif. Grand Père va 
essayer de remplir ses 
grilles de façon 



scientifique. En catimini, il 
va se servir du nouvel 
appareil. Miracle, tout est 
simple, les écrans se 
succèdent et Grand Père 
trouve son bonheur, les 
pronostics pour le Loto 
sportif. Qui sait, va-t-il 
pouvoir offrir des tas de 
cadeaux à ses petits 
enfants? 

Mercredi: 

Une polémique éclate à 
table: Le père soutient 
que Bagdad est la 
capitale de L'iran, Robert 
le fils soutient que 
Bagdad est la capitale de 
l'Afghanistan. Le 

questionnaire QUAD de 
géographie va les 
départager: Bagdad est la 
capitale de l'Irak. Robert 
en profite pour voir 
quelles sont les relations 
économiques France-Irak. 

Jeudi: 

Grand Mère qui est 
assidue de jeux radio- 
télévisés, participe au 
grand concours TF1. Elle 
croit connaître la bonne 
réponse à un jeu de 
Patrick Sabatier. Elle a 
noté le mot de passe 
TVINFO sur un bout de 
papier. 3615 et la voilà 
peut être-gagnante. Une 
fois sa réponse tapée, 
l'écran lui répond que la 
liste des gagnants pourra 
être consultée Dimanche. 

Vendredi: 

Les vacances d'hiver sont 
proches, et la mère 
voudrait bien commander 
quelques pulls pour partir 
aux d'hiveports 

Sa commande va être 



directement enregistrée, 
son compte débité. 

Décidément, comment a-t- 
elle fait pour vivre sans 
l'Exeltel toutes ces 
denières années? 

Samedi: 

C'est la fin de semaine. 
La famille voudrait bien 
emporter dans la 
résidence secondaire 

l'Exeltel, mais celui-ci 
restera à la maison, car il 
sert de répondeur 
enregistreur 

téléphonique. De plus, 
Robert a demandé à son 
ami du club Exelvision de 
lui envoyer un nouveau 
programme. 

Dimanche: 

De retour de la 
campagne, le père écoute 
les messages qui ont été 
enregistrés, tandis que le 
fils analyse le programme 
qui lui a été transmis. 



Les applications sont si 
nombreuses que nous ne 
pouvons pas en fait toutes 
les citer. On n'insistera 
jamais assez sur les 
possibilités d'un micro- 
ordinateur relié à un 
centre serveur. La 

semaine de la famille 
connectée n'est pas une 
utopie ni une vue de 
l'esprit, non, bien au 
contraire, elle est réelle. 
Le nombre de serveurs 
croît chaque semaine. 
Chaque mois salue la 
naissance et la mort de 
100 à 200 centres 
serveurs. Cette 

croissance débridée, mais 



néanmoins contrôlée par 
les pouvoirs publics 
démontre la bonne santé 
de la télématique -ta - 
grand public. S'il est vrai 
que les messageries sont 
prises d'assaut toutes les 
nuits de 21h00 à l'aube, 
les autres services n'ont 
pas à faire de 

complexes. 

Vers une nouvelle 
forme de pensée 

Les mentalités ont 
beaucoup de mal à 
évoluer, surtout si l'on 
s'appelle Dupont et que 
l'on habite en France, 
auquel cas il faut une 
massue pour faire rentrer 
dans sa tête "Télématique 
= Progrès = Liberté = 
Temps libre ". La 
télématique, outre son 
aspect pécuniaire, est 
un ballon d'oxygène pour 
l'individu qui a décidé de 
gagner du temps. Or, il ne 
faut pas oublier que " 
Temps gagné = Temps 
libre supplémentaire". Il 
n'existe aucune raison 
valable pour refuser la 
télématique chez soi. 
Oui, et combien cela va-t- 
il me coûter ? Excellente 
question. Le coûfla de 
télématique, c'est 

l'épouvantait que certains 
exhibent. Une utilisation 
raisonnable, et rationnelle 
ne va pas augmenter vos 
notes de téléphone de 
200 à 300 %. Il est certain 
que si vous passez votre 
temps derrière un Minitel, 
vous risquez d'avoir 
quelques surprises. Mais 
soyons réalistes, plus de 
deux millions de Français 




utilisent ce service, et 
n'ont pas mené leur foyer 
à la ruine. 

L'Exelmodem et 

L'Exeltel la solution 

économique pour 

utiliser les services 
télématiques. 

Ce qui augmente votre 
note de téléphone, c'est le 
temps de connexion. Avec 
l'Exelmodem et a fortiori 
l'Exeltel, les différentes 
pages que desservent les 
serveurs peuvent être 
stockées dans la mémoire 
et consultées une fois la 
communication 
interrompue. 8 à 16 pages 
peuvent être rangées 
dans la mémoire de 
l'ordinateur. L'économie 
réalisée sur le plan de la 
consultation de pages 
vidéotex peut être 
évaluée de 50 à 60%. Si 
vous hésitez encore, 
n'oubliez pas que le 



centre seveur d'Exelvision 

vient de naître, il n'attend 
plus que vous pour se 
développer. Le centre 
serveur Exelvision sera 
bientôt opérationnel, nous 
en profiterons pour vous 
donner toutes les 
informations relatives à ce 
dernier dans un prochain 
numéro. 

Dernière nouvelle: 

Exelement Vôtre change 
de peau. Contrairement à 
ce qui était annoncé dans 
le précédent numéro, 
Exelement Vôtre 

continuera son existence. 
La revue sera beaucoup 
plus orientée vers les 
aspects télématiques. Les 
rubriques existantes 

seront néanmoins 

développées, à savoir, 
Initiation, banc d'essais, 
etc.. 



INITIATION NIVEAU 



Mettez de l'ordre dans 

vos listages ou 

programmation et 

structuration 



Nous avons, au cours des 
mois précédents, passé 
en revue pratiquement 
toutes les instructions qui 
constituaient le langage 
BASIC. Est-ce pour autant 
que vous connaissez la 
programmation ? Loin 
s'en faut. En effet, si nous 
devons faire une 

comparaison, nous dirons 
que, comme à l'auto- 
école, nous avons acquis 
des connaissances 

minimales pour conduire. 
Lorsque vous obtenez le 
permis de conduire, vous 
obtenez le droit de 
circuler, vous n'obtenez 
pas pour autant le titre de 
bon conducteur. Nous 
parlerons dans cette 
section de structuration de 
programmes. Qu'est ce 
que la structure d'un 
programme ? 

La structure d'un 
programme peut 

s'apparenter aux 

fondations d'un 

immeuble. Faisons appel 
à notre bon sens. Il est 
peu probable qu'un 
maçon construise les 
murs d'une maison sans 
avoir auparavant creusé 
de solides fondations, 
ferraillé les murs maîtres, 
etc.. 
De la même manière, en 




programmation, il existe 
un ordre pour organiser 
des données. Bien 
souvent, les 

programmeurs amateurs 
procèdent de façon 
empirique, sans se douter 
qu'il existe des règles 
strictes de 

programmation. 

Organisation 
des données 

Un grand nombre de 
personnes croit que la 
programmation est un art 
secret. Oh que non, en 



fait, tout le monde 
programme, bien 

inconsciemment, cela va 
de soi. 

Réfléchissez, le fait pour 
une ménagère de réaliser 
une omelette s'apparente 
à de la programmation. 
Comment me direz-vous ? 
Et bien, nous allons 
analyser le processus de 
fabrication d'une omelette 
en détail, tout en 
définissant un certain 
nombre de points. 

Notion de processeur 

Nous appelerons 

processeur toute entité 
capable de réaliser un 
certain travail. Nous 
pouvons considérer l'être 
humain comme un 
processeur tant il est 
capable de réaliser un 
grand nombre d'actions. 
Le micro-ordinateur est 
équipé de processeurs 
qui réalisent des actions 
bien particulières comme 
additionner deux 

registres, effectuer des 
opérations de rotation sur 
les bits, etc.. Comme ce 
genre d'opérations est 
assez hermétique pour le 
débutant nous parlerons 
plus volontiers de 
langage comme le 



BASIC. 

Un parallèle peut être 
établi entre l'homme et la 
machine: Ce sont deux 

processeurs qui effectuent 
un certain travail en 
fonction des ordres qui 
leur sont donnés. Les 
porcesseurs comprennent 
donc un ensemble d'ordre 
et effectuent en contre 
partie un ensemble 
d'actions. 

Notion de primitives 

Pour bien comprendre la 
notion de primitive, 
considérons que nous 
nous adressons à une 
personne qui n'a jamais 
réalisé d'omelette de sa 
vie. Si vous lui ordonnez: 
"Confectionne une 

omelette", il y a peu de 
chances voire même 
aucune que votre 
omelette soit réalisée. 
Pourqoui ? 



Nous avons ordonné une 
action trop complexe à 
réaliser. Le processeur, 
en l'occurence l'homme 
n'a pas reconnu l'ordre 
comme appartenant à son 
parc d'actions possibles. 
De la même manière, si 
vous demandez à votre 
ordinateur d'afficher la 
solution de l'équation X 2 
+ 2X -2 = 0, il est peu 
probable que vous 
obteniez la réponse. Il faut 
donc en fonction du 
processeur et de son 
degré d'intelligence 

décomposer le problème 
en actions primitives, c'est 
à dire qui ne peuvent plus 
être décomposées. 



Jeu d'instructions 

Chaque processeur possède son langage qui 

lui est propre. Un langage est composé 

d'instructions qui agencées d'une certaine 

manière permettent de réaliser un certain 

travail. 

Définissons les instructions connues par un 

processeur humain: Il sait 



Reconnaître la droite de la gauche 

Se positionner devant un appareil 

Prendre un ustensile de cuisine ou un objet 

Poser un ustensile de cuisine ou un objet 

Prendre un oeuf 

Le casser 

Séparer la coquille de l'oeuf 

Jetter la coquille 

Battre les oeufs 



A partir de ces quelques 
instructions, il est 
possible ou presque de 
fairte réaliser au 
processeur une 

omelette. 



Environnement 
processeur 



du 



Bien évidemment, il est 

impossible de réaliser 
une omelette si l'on ne 
possède pas les 
ustensiles nécessaires 
comme une cuisinière, 
une poêle, du gaz, des 
alumettes, etc.. Bref tout 
ce que l'on appelle 
l'environnement du 

processeur et qui sur un 
ordinateur est 

matérialisé par l'écran, le 
clavier, la souris, etc.. 
Cet environnement est 
évolutif et il définit un 
cadre rigide hors duquel 
il est impossible 
d'évoluer. 



Les données ou les 

ingrédients 

Comme les ingrédients 
sont la substance même de 
l'omelette, les données 
forment la substance même 
d'un programme. 

Disposer tous les 
éléments de façon 
ordonnée 

Une fois que tous les 
ingrédients et les éléments 
sont rassemblés, il faut les 
disposer de façon 
ordonnée. Vous pouvez 
évidemment mettre un oeuf 
sur la table, la poêle sur 
l'évier, et ainsi de suite, 
mais vous perdrez du 
temps et encombrerez la 
cuisine. Il est plus judicieux 
de grouper tous les 
éléments de façon à les 
avoir à portée de la main. 
De même pour un 
programme, il est conseillé 
de grouper les constantes, 
les variables, les calculs. 



Notion 
d'algorithme 

Maintenant que nous 
connaissons tous les 
éléments d'un problème, 
il nous reste à définir la 
façon d'énoncer les 
actions, de donner les 
ordres. 

L'algorithme peut se 
définir comme une suite 
d'actions finies qui ne 
peuvent plus se 

décomposer. L'exécution 
de toutes ces actions 
correspond à la résolution 
d'un problème donné. 
Ainsi, pour réaliser une 
omelette, nous 

procéderons de la 
manière suivante: 




Début 

Ingrédients ou données: Avoir 

Six oeufs 

Une noix de beurre 

Du sel 

Du poivre 

Disposer tous les ingrédients sur sa droite 

Se positionner devant la cuisinière 

Recommencer 

Prendre un oeuf sur la droite 
Le casser dans la poêle 
Jetter la coquille 

Jusqu'à ce qu'il n'y ait plus d'oeufs sur la droite 

Battre les oeufs 
Mettre du sel et du poivre 
Faire cuire deux minutes 
Servir dans une assiette 
Fin 



Nous obtenons une suite 
d'actions quasi minimale 
qui, lorsqu'elle sera 
exécutée, permettra 

d'obtenir une omelette. 
Les actions ne sont pas 
encore tout à fait 
minimales. En effet, "faire 
cuire deux minutes" 
pourrait se décomposer 
comme " prendre une 
allumette dans une boîte 
d'allumettes, gratter 

l'allumette, ouvrir le 
robinet du gaz, approcher 
l'alumette, souffler 

l'allumette, jeter 

l'allumette, regarder sa 
montre, compter 1 20 
déplacements sur le 
cadran, etc.. 

Bref, on s'aperçoit qu'en 
fait lorsque l'on doit tenir 
compte de tous les 
paramètres, faire une 
omelette constitue une 
véritable opération de 
programmation que nous 
rélisons bien 

inconsciemment. Si nous 
devions écrire un 
programme qui compte 
jusqu'à six, nous 

définirions l'algorithme 
comme : 




En fait, une fois 
l'algorithme défini, la 
programmation ou plus 
exactement l'écriture dans 
un langage choisi est un 
jeu d'enfant. Pour le 
langage BASIC, nous 
écrirons: 



Début 

Mettre le compteur à zéro 

Recommencer 

Prendre la valeur contenue dans le compteur 
Additionner 1 

Jusqu'à ce que la valeur du compteur 

soit égale à six 

Afficher la valeur du compteur 

Fin 



100 REM MISE A 

ZERO 

110COMPTEUR=0 

120 REM 

TRAITEMENT 

130COMPTEUR= 

COMPTEUR+1 

140 IF COMPTEUR = 

6 THEN 160 

150 GOTO 130 

160 REM AFFICHAGE 

170 PRINT 

COMPTEUR 

Le programme comporte 
trois instructions REM 
destinées à marquer les 
différentes zones du 
programme qui sont: 

Affectation des 

constantes ou des 

variables 

Traitement des 

données 

Affichage 

Ces trois zones se 

retouvent dans 

pratiquement tous les 
programmes . 

Structuration 

des 

programmes 

Il est très important en 
programmation de 

découper le problème en 
petites tranches, lors de la 
confection d'une omelette, 
nous avons découpé le 
problème en actions 
minimales appelées aussi 
primitives. De même, en 
programmation, nous 

découperons le problème 
en actions minimales pour 
définir l'algorithme de 
traitement. Prenons un 
exemple très simple qui 



consiste à additionner 
deux nombres sur une 

calculette. 



Début 

Allumez la calculette 

Taper sur le premier 

nombre ( 7 ) 

Taper sur l'opérateur 

+ 

Taper sur le second 

nombre ( 5 ) 

Taper sur l'opérateur 



Fin 



Pour taper un programme 
qui additionne deux 
nombres, nous pouvons 
définir l'algorithme 

comme suit: 



Début 

Définition des 

constantes 

Mettre 7 dans la 

constante A 

Mettre 5 dans la 

constanteB 

Addition des 
constantes 



Mettre dans la variable R 
le réultat de l'addition de 
AetB 

Afficher les résultats 

100 A=7 
110 B=5 
120 R=A+B 
130 PRINT R 

Dans ce programme, il 

existe trois zones: 

Affectation 

Traitement 

Affichage 




Essayer dans la mesure 
du possible de donner à 
vos programmes le même 
ordre. Prenons des 
exemples très simples et 
appliqouns ce que nous 
venons de voir. 

Calcul du prix TTC 
d'un produit 

100 REM 
AFFECTATION 
110 TVA = .186 
120 INPUT "PRIX 
H.T:";PHT 
130 REM 
TRAITEMENT 
140TTC= 
PHT*TVA+PHT 
150 PRINT TTC 



Affichage de noms au 
pluriel 



100 AFFECTATION 

110 NOMÎ="ORDINATEUR" 

120 NOMS="MONITEUR" 

130 S$="S" 

140 REM TRAITEMENT 

150 PLURIEL1$=NOM1$&S$ 

160 PLURIEL2$=NOM2$&S$ 

170 REM AFFICHAGE 

180 PRINT PLURIEL1S, 

PLURIEL2$ 

Il est très important, si 
vous désirez acquérir une 
certaine maîtrise de la 
programmation de définir 
un algorithme de 

traitement donc de 
découper le problème 
auquel vous êtes 
confronté en plusieurs 
petitts problèmes. Une fois 
que vous avez effectué 
ces actions, l'écriture dans 
un langage donné est 
nettement plus facile. 

Exemple: Nous désirons 






APPLICATION 



établir une minifacturation 
sur une cinquantaine 
d'articles pour un 
buraliste. L'utilisateur tape 
un numéro de code, 
l'ordinateur calcule le prix 
HT, calcule le total et 
effectue tes affichages ( 
écran ou imprimante ) 
Ce problème est très 

facile à résoudre: un 
commerçant qui gère 50 
articles n'a pas à priori 
besoin de passer par des 
fichiers. Les articles ainsi 
que leurs références 
seront écrits dans un 
tableau. La saisie des 
codes et des quantités 
n'offre pas de difficulté, I' 
affichage encore moins. 
Analyse du problème 
Les règles de 

structuration des 

programmes que nous 
venons de définir nous 
imposent d'écrire en 
premier lieu le tableau qui 
contiendra toutes les 
données. La prochaine 
étape consiste à saisir les 
références et les 

quantités. La recherche 
des informations dans le 
tableau ainsi que les 
mises à jour et les calculs 
constituent le traitement 
des données. Les 
résultats sont ensuite 
édités sur écran ou sur 
imprimante. 

Fragmentation en 

actions minimales 
Si nous devons donner 
un algorithme de base au 
problème qui nous 
intéresse, nous 

pourrions le décomposer 
nnmmp suit' 
10 



Affectation des données 

Réserver de la place en mémoire pour contenir 

outes les données 

Ecrire les données à i'aide d'instructions DATA 

Recommencer 

Ecrire le code 

Ecrire la désignation 

Ecrire le prix 
Jusqu'à ce que tous les articles soient écrits 

re les données et les ranger dans un tableau 
i l'aide de l'instruction READ 

pecommencer 

lire une ligne 
Lire le code 
Lire la désignation 
Lire le prix 
Jusqu'à ce que toutes les lignes soient lues 

Mfîcher le menu 

Réaliser une bascule saisie / Edition 

Tester les touches de réponses 

Traitement des données 

/ider l'écran 

vlettre le compteur de saisie à zéro (X) 

vlettre la variable de cumul à Zéro 

Recommencer 

saisir le code 

Interdire les mauvais codes 

Saisir la quantité 

En fonction du code, rechercher dans le 

tableau la désignation et le prix de l'article ■;: 

Calculer le prix total 

Additionner le total dans lavariabie de 

cumul 

Augmenter de 1 le compteur de saisie (X) 

Jusqu'à ce que la touche Envoi soit 
appuyée comme code à fournir 



Affichage des données 

Vider l'écran 
Afficher un en-téte 
afficher des pointillés 

Recommencer 

Afficher la désignation 
Afficher la quantité 
Afficher le prix unitaire avec format 
Afficher le prix total 

Jusqu'à ce que tous les articles soient traités 

Afficher le total 



Nous avons donc découpé le problème en actions minimales compréhensible par 
le langage que nous utilisons. Il ne nous reste plus qu'à définir un tableau de 
variables, et écrire le programme en langage BASIC. 

Tableau des variables 



Le tableau des variables nous permettra de mieux documenter l'algorithme: 



Variable ou tableau 


Rôle 


TAB$ 


Contient : le code, la désignation, le prix 


C$ 


Contient le code tapé au clavier 


DES$ 


Contient la désignation en fonction du 
code tapé au clavier 


Q$ 


Contient la quantité en fonction du 
compteur de saisie 


P 


Contient le prix résultant 


X 


Compteur de saisie 


TTC 


Variable de cumul 



1 L' ' ■*■ * * >.- K- -X ■* * h> -<• -i; *.■ & -Jl- # & +;■ -j<- £■ *■ * # * £ ^ £■ *■ *■ ¥r & -K- Vc ¥: ■* V; 

110 i* MICRO-FACTURATION » 

120 l***K**MK ***#***************■******** 

130 DIM TAE:*<50.3>.DES*<50> ,C*<50> ,S*<50> ,F<50) 

140 DATA 1 .JOURNAL, 3. 80 

150 DATA 2. CRAYON .5.00 

1E0 DATA 3. STYLO. 7. 00 

170 DATA i. PORTE CLEF. 12.45 



180 DATA 5. GOMME. 2. 65 

190 DATA 6. TUBE COLLE. 15.00 

200 DATA 7. FEUTRE, S. 00 

210 DATA 8. TROUSSE. 34. 00 

220 DATA 3. TAILLE CRAYON, E. 30 

230 DATA 10. CAHIER 100 PA.15.00 

240 DATA 11. CAHIER 200 PA.25.00 

250 DATA 12. BLOC 100 P. 14.00 

260 DATA 13. BLOC 200 P. 13.00 

270 DATA 14. PROTEGE CAHIER. 6. 00 

280 DATA 15. ETIQUETTES. 3. 50 

230 ! it******LECTURE DES DONNEES»******»* 

300 FOR 1=1 TO 15:F0R J=0 TO 2 

310 READ TABt(I.J) 

320 HEXJ JlNEXT I 

330 ! *****»*****»MF.NU*******»**w»»****** 

340 CLS "WBC'xCALL COLORC'OWB") 

350 LOCATE < 1 . 10) : PRINT "1 -SAISIE" 

360 LOCATE < 1 1 . 1 ): PRINT "2-EDITÏON" 

370 A*-=KEYJ- 

380 IF A*«""THEN 370 

390 IF AÎ<"1"0R A$>"2"THEN 370 

400 IF AS=""THEN 350 

410 ON VAL(A*)G0SU8 430.800 

420 GOTO 330 

430 ! ******SAISIE DONNEES************* 

44 CLS 

450 X=1:TTC»0 

460 CLS:l.OCATE (5.5) 

470 INPUT "CODE:":Ct(X> 

430 IF CÎ-(X> = ""THEN RETURN 

430 IF VAL(CÏ>(X> )(1 OR VAL < C* < X) > > 1 5 THEN 470 

500 LOCATE (7.5) 

510 INF'UT "DUANTITE:":Q»CX> 

520 IF 0*(X)»""THEN 500 

530 DES*(X)=TABt(VAL(CS(X) ) ,1 ) 

540 UNI(X)='« i AL(TAB*(VAL(Ct(X>> .2) ) 

550 P!X)=VAL(aî(X)">«VAL(TAB*(VAL(C$(X> ) .2)) 

560 TTC=TTCtp(X> 

570 X = X+1 

580 GOTO 460 

530 RETURN 

600 !**w*****EDITIDN**w**************** 

610 CLS 

620 LOCATE (5.2> 

630 PRINT "DES":TAB(15) : "QUAN" : TAB( 25 ) : "PRIX" ; TAB < 35 ) : "TOTAL" 

640 PRINT RPT*("-",40> 

650 FOR X=1 TO X-1 

660 PRINT DES*<X>:TAB(1S>; 

670 FRINT USING"»t!8":0*(X> ; 

680 PRINT TAB (23) ; 

630 PRINT USING"HHIl.tt!l":UNI(X) : 

700 PRINT TAB (33) : :PRINT USING"tt!ttl . 00" :P (X ) 

710 NFXT X 

720 PRINTrPRINT RPTîM " - " . 40 > 

730 PRINT TAB( 15) : "TOTAL TTC": 

740 PRINT TAB(33): 

750 PRINT U5ING"HHtl.80":TTC 




Les jeux de cartes sur 
les ordinateurs 



Nous allons voir dans 
cette section comment 
mélanger, distribuer, 

couper un jeu de cartes. 

Représentation d'une 
carte dans la mémoire 
de l'ordinateur 

Quel est le moyen le plus 
judicieux pour représenter 
une carte dans 

l'ordinateur tout en ayant 
à l'esprit que nous aurons 
à gérer un paquet de 
cartes ( 32, 52,78 ) en 
fonction du jeu envisagé ( 
Belote, bridge, poker, 
tarot, etc.). 

Dans n'importe quel jeu, 
la carte a une valeur 
numérique intrinsèque. A 
la belote, l'as vaut onze 
points, le dix vaut 10 
points, le valet vaut 2 
points, sauf s'il représente 
le valet d'atout, auquel 
cas sa valeur est de vingt 
points. Le problème 

devient plus complexe 
encore si nous devons 
tenir compte d'une 
couleur comme au bridge. 
On ne peut dissocier la 
représentation d'une carte 
de son contexte de jeu. 
Prenons par exemple le 
jeu de cartes le plus 
simple qui soit: j'ai 
nommé la très célèbre 




bataille. La règle du jeu 
est très simple: le joueur 
emporte une levée si la 
carte qu'il joue est 
maîtresse. Les cartes sont 
couvertes de sorte que les 
joueurs ignorent la carte 
qui sera jouée. La 
hiérarchie des cartes est 
la suivante: 

As, dix, Roi, Dame, Valet, , 
Neuf, Huit, Sept.Six, Cinq, 
Quatre.Trois, Deux 

On ne se préocupera pas 
de la couleur des cartes. 
L'ordinateur ne peut 



comprendere que des 
chiffres, et donc, si les 
cartes non habillées 
peuvent être représentées 
uniquement par leur 
valeur numérique, les 
figures ne peuvent pas, 
par contre, se suffire à 
elles-mêmes pour être 
représentées à l'intérieur 
de la mémoire. D'autre 
part chaque jeu de cartes 
possède 4 couleurs, et 
bien que ces dernières 
n'influent en rien sur le 
gain d'un pli, elle 
permettent de différencier 
les quatre dix, ou les 
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quatre roi, etc.. Nous 
adopterons une structure 
de tableau pour 

représenter la totalité du 
paquet de cartes. Que 
doit-on faire figurer dans 
ce tableau ? 

La désignation de la 
carte, sa valeur, sa 
couleur. Pour la couleur, 
nous choisirons un indice 
de 1 à 4. Si par la suite, 
nous voulons tenir compte 
de la couleur, nous 
n'aurons qu'à tester cet 
indice. Nous attribuerons 
' le numéro 1 à la couleur 
trèfle, 2 à la couleur 
Carreau 3 à la couleur 
coeur, et 4 à la couleur 
pique. Ainsi, nous 

pouvons écrire: 



autres cartes seront 
écrites numériquement. 
De cette manière, nous 
pourrons tester dans 
un premier temps, grâce à 
la fonction NUMERIC, si la 
chaîne de caractères est 
une représentation valide 
d'une expression 

numérique. Si ce n'est 
pas le cas, nous testerons 
la valeur des cartes sur la 
troisième colonne pour 
déterminer quelle carte 
est maîtresse. Dans le cas 
contraire, nous prendrons 
à l'aide de la fonction VAL 
la valeur numérique de la 
chaîne de caractères. 

Pour commencer notre 
jeu de carte, nous devons, 
dans un premier temps, 



déterminer la 

représentation des cartes. 
Donnons l'algorithme. 
Voir tableau 2 



Il est certain que 
l'introduction des 

données en mémoire 
centrale prendra un peu 
de temps, mais cette 
opération est nécessaire. - 

Mélanger le jeu 
de cartes 

Pour restituer un semblant 
de réalité, nous devons 
simuler le mélange d'un 
jeu de cartes. Plusieurs 
solutions s'offrent à nous: 



Numéro 


Carte 


Valeur 


Couleur 


1 


AS 


11 




2 


DIX 


10 




3 


ROI 


4 




4 


DAME 


3 




5 


VALET 


2 




6 


9 


1 





Il nous reste à résoudre 
un petit problème. En 
effet, si les 5 premières 
cartes ont des valeurs 
bien distinctes qui 
permettent de déterminer 
quelle est la carte 
gagnante, les autres 
cartes 9,8,7,6,5,3,2 valent 
1 point. Nous utiliserons 
une astuce: Dans la 
colonne carte nous 
écrirons les cinq 

premières cartes en 
toutes lettres, les 
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Début 



Réserver de la place en mémoire pour le 
tableau des cartes 

Ecrire à l'aide de l'instruction DATA les 
différentes cartes 

Recommencer 

Ecrire la carte 

Ecrire sa valeur 

Ecrire sa couleur 

Jusqu'à ce que les 32 ou les 52 

cartes soient traitées. 

Tableau 2 



-Couper successivement 
le paquet de cartes 
comme cela se fait 
-Prendre les cartes une à 
une et les arranger en un 
autre paquet 

Nous choisirons la 
deuxième méthode car 
elle permet de boulverser 
totalement l'ordre des 
cartes . En effet, elle 
arrange le second paquet 
de cartes dans un ordre 
totalement différent, en fait 
la séquence des cartes 
est totalement changée, 
ce qui correspond au 
mélange optimal. 



Analyse 



Pour programmer cette 

méthode de brassage de 
cartes, décrivons les 
actions qui seront 
entreprises. Au départ du 
jeu nous disposons d'un 
paquet de cartes arrangé 
dans l'ordre des couleurs. 
Cf tableau 3. 

La seule difficulté consiste 
à bien manipuler les 
tableaux. Nous utiliserons 
deux tableaux. Le premier 
tableau correspond au 
paquet de cartes original. 
le deuxième tableau 
représente le nouveau 
paquet de cartes 

La figure 1 
le processus 



mélangé. 

illustre 

employé. 



Si la méthode naturelle 
est aisée à mettre en 
oeuvre, la programmation 
en BASIC est un peu plus 
délicate. En effet, nous 
nous servirons d'un 
pointeur qui déterminera 




Recommencer 

Prendre une carte au hasard dans la paquet 
Mettre ia carte sur la table à côté du premier paquet 

Jusqu'à ce qu'il n'y ait plus de cartes dans* le premier 
paquet 





*». 














Paquet original 


Nouveau paquet Paquet 

original devient 






AS 








AS 




-> 


DIX 
ROI 
DAME 

7 




1 DIX 
2 




ROI 



















MICRO-MAILING SERVICE 

PROMOTIONS SUR LOGICIELS ET MATERIELS 
"EXELVISIOIXI" 

NOUVEAUTÉS 



1000 BORNES 130,00 HISTOIRE DE THÉÂTRE 115,00 



Adaptation du céléêbre jeu des 1000 BORNES pour jouer cootte 
votre ordieeteur. Teoter de parcourir un maximum de KMS sans 
eceident. tout en n'hésitant pes è htoquer votre adversaire. Un jeu pas- 

ROMULUS ROME ET MOI 130,00 



Partez à la conquête 
émule des CESARS. . 



s ROMAIN. Créez vos légions, votre 
s augures et vous deviendrez le digne 
''histoire se répète et il est n ' 
>u plus prés la chronologie 



jeu gui fait aimer et comprend) 

PASCAL BASE 175,00 



Le langage PASCAL R 
Cette cassette compre* 
avec chaînage et un exi 
plus loin avec votre mit 



le parle dans les milieux informatique: 
iiteur de texte puissant, un compilâtes 
n PASCAL complet pour tous, pour allt 



Un jeu d'aventure passionnant ayant pour cadre un théâtre du IBèma. 
A vous d'atteindre la scène pour participer au spectacle. Près de 250 
questions différentes sur cet art et cette technique, constitue u. 
de jeu idéal pour l'initiation au théâtre. Ce jeu a reçu un accueil très fa- 
vorable lors du festival d'A VIGNON où il a été présen té. 

BUG BUSTER 1 15,01 

x BUGS et vous 

t détruisez ces BUGS 



e programme est attaqué par les 

i dessin ou sa musique s'altérer. Prenez 

t que vos programmes ne soient inutilisa, 



VEGAX4 130,00 

Jeu d'arcade très plaisant. Les puissances maléfiques de VEGA useront 
de toutes les formes possibles pour abattre votre flotte de cinq 
seaux. Votre rapidité et votre adresse seront mises è rude épreuve. 



MATERIELS 


590,00 
650,00 

1 090,00 
699,00 
405,00 
290.00 
320,00 

2 550,00 

3 290,00 
1 750,00 


VALISES 

EDUCATIFS «CALCULS» 4 LOGICIELS 

EDUCATIF «DÉCOUVERTE» 5 LOGICIELS .... 
EDUCATIF «GRAMMAIRE CM2» 13 VOLUMES 
ENS. GENERALE REFLEXION 5 logiciels 

JEUX ARCADE AVENT CARTES 5 LOGICIELS . . 

- AHCADE 2 LOG. + MANETTES 

-AVENTURE 4 LOG 


349,00 
349,00 
349,00 

449,00 

399,00 

449,00 
699,00 
399,00 

499,00 

899,00 




MODEM 






MANETTES 










CRÉATION GRAPHIQUE: 


POSSIBILITE DE CREDIT 

AU-DESSUS DE 1 500 F 

■TACHAT 





X- 



BON DE COMMANDE à renvoyer à MICRO MAILING SERVICE 5, avenue Cyrille Besset 06800 GAGNES SUR MER 



Nom : 

Adresse : 

Code postal : 

Ville : 

Règlement 

□ Chèque bancaire/ Ma ndat/CCP D Contre-remboursement 

Date Signature 



TOTAL de la commande 



MICRO-MAILING SERVICE 



SEPTEMBRE 1986 



EXCELVISION EDUCATIF 

8A BASES 

COLORIC 

■ DÉCOUVERTE FLEUVES MERS OCÉANS 

DERDIEDAS 

ECHECOLOR 

GEOMEGA- LE MONDE 

GOLPHABET 

GOLPHACHIFFRES 

INITIATION AUX ADDITIONS 

INITIATION AUX MULTIPLICATIONS . . 
INITIATION AUX SOUSTRACTIONS . . . 

KNOWLEDGE BASE 

LE CORPS HUMAIN {+ 16 K) 

LE CUBE 

■ LECTURE RAPIDE 

LES ANIMAUX ET LA FERME U 16 K) . 

LOGIFAUNE 

LOGINATEUR 

LOGIPHRASES 

MUSIRAMA 

NÉUROMA (ESPAGNOL) 

NUMBERSANDWORDS 

OPERAL 

PL U RIEL 

(OUIZZYj 

SPHYNX 

TOUR D'EUROPE 

VERBES IRREGULIERS ALLEMANDS . . . 

VERBESIRRÉGULIERSANGLAIS 

VOLUFORM 

VOYAGE EN FRANCE 

ALPHABET DE PAT 

DICTÉE DE PAT 

MATHS DE PAT 

LE MONDE DE PAT 

EXCELVISION JEU 

10000 

ANACONDA 

ATI 42 

BACKGAMMON 

CITÉ D'OR 

CPTMENKAR 

CRAPETTE 

ENIGME O'ALGENUBI 

EXELJACK 

EXELPO KER 

IGUPPV) 

KUNGFU 

L'ANNEAU DE L'UNION 

LE PETIT PENDU 

LE TRÉSOR DE TOU ANKH AMON 



80,00 

8i. on 

97,00 

80,00 

80,00 

97,00 

80,00 

80,00 

80,00 

80,00 

80,00 

145,00 

99,00 

290,00 

80.00 

83,00 

135,00 

135,00 

135,00 

110,00 

155,00 

155,00 

120,00 

143,00 

275,00 

125,00 

160,00 

60,00 

80,00 

80,00 

160,00 

135,00 

150,00 

135.00 

135,00 



80.00 
80,00 
1&5.00 
168,00 
145,00 
320,00 
130,00 
155.00 
100,00 
142,00 
290,00 
90,00 
95 OÙ 
95,00 
165,00 



EXELVISION JEU (suit*) 

M'AMS 

TANKATTACK 

MEURTRE A GRANDE VITESSE 

MEURTRE A GRANDE VITESSE 

M!0*VâY_ia42_. 

[MILLE PATTEST 

MONOPOLIC 

MUSICAL 

NEURONE 

OTHO 

POLICHINELLE . 

pjûzziEÏugfiiiD 

ROBIX 

SUPER BAD 

TENNIS 

flffiipsV. 

(rttëORffl 

WORLDWARIII 

CB 5 

1000 BORNES 

BUGBUSTER 

-*PASCALBASE 

AFFAIRE EN OR 

HISTOIRE DE THÉÂTRE 

ROMULUSROMEETMOI 

VEGAX4 

EXE LVISION LIVRE 

1 - 2TPRQGRAM MESEX L 100 + CASSETTE^ . 
EXELVISION UTILITAIRE 

-ARCADE 

ASSOCIATION D'IDÉES (+ 16 K) 

COMPTE BANCAIRE 

CREA PHIX 

JX E L BASIC? 

EXELOGO 

-EXELTEXTE 

- EXTENSION DE L'EXELBASIC 

- EXTENSION SYNTHESE VOCALE 

RITEXT 

FIXEL 

FIXEL-FITEXT 

FIXTAB 

GENEALOGIE 

GESTION DE FICHIER 

GRAPHIX 

- IMAGIX 

MATHITIEL 

REMI 

THOMCALC 



1 OU 2 Log 
3 à 5 Log . 



PARTICIPATION FRAIS DE PORT ET EMBALLAGES 
MATÉRIELS: 



15,00 
30,00 



Contre-remboursement - Frais en si 



Petits matériels (Exelmémuire ...) , 30 00 

Exl 100, Exl 135 80,00 

Package 130,00 

22,50 



MICRO-MAILING SERVICE 



7^93.73.64.64 



la carte extraite. L'élément 
du tableau qui représente 
la carte extraite devra être 
enlevé du tableau. De 
cette manière, si le 
tableau comporte 32 
éléments dans sa 
première colonne, après 
le tirage de la carte, il ne 
devra comporter plus que 
31 cartes. La carte tirée ( 
l'élément du tableau ) doit 
être écrite dans le 
deuxième tableau. Cette 
procédure se termine 
lorsque la dernière carte 
du paquet original se 
retrouve sur le sommet du 
deuxième paquet. 
La difficulté réside dans le 
fait de réécrire le premier 
tableau sans l'élément 
tiré. En fait, il suffit de 
décaler sur la gauche 
l'écriture du tableau. Voir 
figure 2. 

On a décalé vers la 
gauche tous les éléments 
à partir de la carte extraite 
( cette carte extraite est 
désignée par un pointeur 
). Celui-ci sera choisi 
aléatoirement entre la 
première carte et la 
dernière carte restante du 
paquet original , c'est à 
dire entre 1 et 32 ou 52 ou 
78 cartes. Ne pas oublier 
que chaque fois que l'on 
procède au choix ajt 
d'une carte le paquet 
diminue d'une unité. 
Pour écrire la carte tirée 
dans un tableau, il suffit 
de transférer la carte 
choisie dans le tableau en 
prenant bien soin de 
ranger les éléments par 
numéro d'ordre croissant. 
Soit N le nombre de 
cartes présentes dans le 
jeu, après le premier tour , 
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N=8 Figure 2 










AS DIX ROI DAME VALET 


9 


8 


7 




N=7 










AS ROI DAME VALET 9 


8 


7 











12 3 4 5 


6 7 


8 




AS DIX ROI DAME VALET 


9 8 


7 1 




Pointeur = 2 

1 ? .1 4 fi 


Figure 3 
fi 7 






AS ROI DAME VALET 9 


8 7 














Début 

x=Pointeur 
Recommencer 

Mettre dans la case X le contenu de la 
case X+1 

Jusqu'à Ce que X= N Tableau* 



il restera N-1 cartes dans 
le paquet original et il y 
aura une carte dans le 
deuxième paquet. Au 
deuxième tour, il y aura N- 
2 cartes dans le paquet 
original et 2 cartes dans le 
nouveau paquet, etc.. 

Pour remettre à jour le 
tableau, c'est à dire 
décaler les éléments, 
suivons sur la figure le 
principe. Voir figure 2 et 3. 

Le tableau restera 
strictement identique dans 
sa première partie , en fait 
jusqu'à la carte extraite { 
ici le dix , pointeur = 2). La 



deuxième partie du 
tableau commencera à 
partir du roi qui pendra le 
numéro d'ordre qu'avait le 
dix. En fait nous 
remplirons l'élément 2 
avec le contenu de 
l'élément 3, l'élément 3 
avec le contenu de 
l'élément 4, etc.. Voir j 
tableau 4. 

Nous avons pratiquement 
terminé, passons I 

maintenant à la J 

programmation BASIC à 
proprement parler. Cf J 
Listing. Toutes les cartes 
sont arrangées dans un J 
ordre différent. Le temps J 
de barassaqe dépend | 



uniquement du nombre 
de cartes. 



Couper un jeu de 
cartes 

Examinons l'aspect 

naturel de la coupe d'un 
jeu de carte. Vous coupez 
le paquet de carte vers sa 
moitié et vous changez 
l'odre des deux paquets 
résultants. Le listing 
donne effectue la coupe 
du jeu de carte. 

Le listing à la 
loupe 




Lignes de 100 à 150: 


Intitulé et réservation de place mémoire 




On a prévu 6 tableaux pour envisager: 




CARTE$ qui contiendra tour à tour, le paquet original 




et le paquet de jeu. 




TRIS qui contiendra le paquet brassé 




Les autres tableaux permettent de recevoir les cartes 




qui seront distribuées ultérieurement à un joueur et à 




l'ordinateur ainsi que les levées réalisées par ces 




derniers. 


Lignes de 170 à 480: 


Introduction des données sous forme de DA TA 


Lignes de 490 à 510: 


Lecture des données 


Lignes de 520 à 530: 


Initialisation des indicateurs d'état des paquets 


Ligne 540: 


Détermination de la valeur du pointeur 


Lignes de 550 à 580: 


Ecriture du paquet mélangé 


Lignes de 610 à 640: 


Ecriture du paquet original après avoir écarter la 




carte tirée précédemment 


Lignes de 700 à 810: 


Coupe du paquet 


Lignes de 820 à 960: 


Distribution des cartes 



La programmation des 
différentes formes de 

jeux 

Nous avons étudié un 
manière de brasser les 
cartes. Les jeux de cartes 
reposent sur une 
manipulation de tableaux. 
Nous allons analyser 
ensemble le jeu tout 
simple que constitue la 
bataille couverte. Nous 
laissons le soin au lecteur 
de programmer le jeu. 
Les règles 

Les règles de la bataille 
couverte sont très 
simples. Les 32 cartes ou 
les 52 cartes sont 
distribuées entre deux 
joueurs ( l'ordinateur et 
vous ), les cartes sont 
placées de façon à ce que 
les joueurs ne voyent pas 
leurs valeurs. Chaque 
joueur retourne une carte. 
Le pli revient à la carte de 
plus forte hauteur. Si deux 
cartes de la même 
hauteur sont retournées, il 
y a une bataille, c'est à 
dire que le pli reviendra 
au gagnant de la 
prochaine main. Le joueur 
qui gagne un pli, le met 
sous son paquet de 
cartes. Le jeu s'arrête 
lorsqu'un des deux 
joueurs n'a plus de carte 
en main. 



Analyse 

Ce jeu en apparence 
simple demande une 
bonne analyse. Une fois 
les cartes brassées, vous 
disposez d'un paquet de 
cartes, la prochaine étape 
du jeu consiste à 
distribuer 16 cartes ( ou 
plus ) aux deux joueurs. 
Cette action nécessite de 
connaître deux 
paramètres: 

-Qui sera servi le premier 
-Combien de cartes 
seront distribuées à 
chaque tour 

Il est préférable de 
distribuer les cartes une à 
une. Pour fixer qui recevra 
la première carte, il suffit 
de tirer aléatoirement 
deux cartes dans un 
paquet, généralement le 
joueur qui tire la plus 
petite carte distribue. Par 
la suite, celui qui a reçu 
les cartes distribue, etc.. ( 
avec deux joueurs ). 
Une fois les cartes 
distribuées, l'on doit être 
en possession de deux 
paquets de cartes { ou 
trois ou quatre en 
fonction du nombre de 
joueurs et du jeu 
envisagé ). Un paquet 
sera assigné à 

l'ordinateur, l'autre paquet 
sera assigné au joueur. 



Nous aurons donc deux 
tableaux dont le nombre 
d'éléments est équivalent. 
La programmation du jeu 
doit tenir compte du fait 
que les deux paquets sont 
destinés à évoluer quant 
à leur nombre d'éléments 
qui peut passer de 16 à 
ou de 16 à 32. 
La premier tour du jeu est 
assez simple à gérer du 
fait qu'il y a 16 cartes à 
jouer de part et d'autre. Il 
faut tout de même faire 
attention aux batailles { 
deux cartes de même 
hauteur ). Les cartes 
gagnées dans un pli 
devront être écrites dans 
un ou l'autre tableau. Le 
jeu est fini lorsqu'un des 
deux tableaux est vide ( 
chaîne de caractères vide 
)■ 

Le meilleur programme 
sera gratifié d'un 
Exeldrums. Une 

représentation graphique 
n'est pas interdite, bien au 
contraire. Pour méditer, 
nous publions un logiciel 
qui avait gagné le premier 
prix du premier concours 
d'Exelement Vôtre. Ce 
programme s'appelle 

POKER. Un etrès bonne 
réalisation de laquelle 
vous pouvez vous 
inspirer. 



LISTINGS 



Jeu de cartes 



130 


TQUROEJEU-0 


140 


DIM CARTE» ( 33, 4 >, TRI* (33, 4) , JOUEUR* ( 3" 


150 


DIM PILEJ*(33,4> 


160 


1*** 


«««»««««00NNEE5««k. ««»«*««,. ««« 


170 


DATA 


1, AS, 11,1 


■I B0 


DATA 


2, DIX. 10,1 


190 


DATA 


3, ROI, 4,1 


200 


DATA 


4. DAME, 3,1 


210 


DATA 


5, VALET, 2,1 


220 


BATA 


6.3,1,1 


230 


DATA 


7.8,1 ,1 


240 


BATA 


8.7,1,1 


250 


DATA 


9, AS, 11,2 


260 


DATA 


10. DIX, 10,2 


270 


DATA 


11 .ROI, 4, 2 


280 


DATA 


•I 2. DAME, 3, 2 


290 


OATA 


13.UALE-T r 2,2 


300 


DATA 


14,3,1,2 


310 


HAT:", 


13, a, 1 ,2 


m ?& 


IHè'iL 


340 


IJAI/i 


18, DIX, 10,3 


3'50 


DATA 


19. ROI. 4 3 


360 


LA TA 


20. DAMÉ, 5, 3 


3 70 


IJA 1 A 


21 .VALET, 2,3 


380 


LIA TA 


22.9,1,3 


330 


DATA 


23,8,1 ,3 


400 


DATA 


24.7,1,3 


410 


DATA 


25, AS, 11,4 



420 DATA 26, DIX, 10 4 
430 DATA 27. ROI, 4, 4 
440 DATA 28. DAME, 3, 4 
450 DATA 23, VALET, 2, 4 
460 DATA 30,3,1 4 
470 DATA 31 ,B 1 4 
480 DATA 32,7, 1 ,4 
490 ! «««««««««««LECTURE 
500 FOR 1=1 TO 32;F0R J 
510 !««**««««*«TIRAGE CARTE 
i RANDOMIZE 

N=32il=1 

POINTEUR=INTRND(N> 

TRI*(I.1>»STR*<I) 

TRI* (I. 2 > "CARTE* (POINTEUR, 

TRI* <I, 3 ) «CARTE* < POINTEUR,: 

TRI» ( I , 4 ) =CARTE* ( POINTEUR , 

If-" N=1 THEN 670 




TO 4:READ CARTE»<I. 



:NEXT J:NEXT I 



•530 
540 
550 
560 
570 
500 
'VIO 

t; o o 
E10 
620 
630 
640 
650 
660 
670 

eeo 

700 

710 
720 
730 
740 

750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
G^,0 
660 
870 
880 
830 
300 
310 
320 
330 
340 
350 
360 



N=N-1:I=I+ 

■■ ««««««««ECARTER CARTE* «•«««««««««« 
FOR- X=POINTEUR TO NiFOR J»1 TO 4 
CARTE*(X,J>=CARTE*<X+1 J> 
NEXT JiNEXT X 
GOTO 540 

'««««AFFICHAGE PAQUET MELANGE***»* 
CLS:FOR 1=1 TO 32:PRINT TRI» ( I , 2 ) ; NEXT 
PAUSE 

'.* ** ««««COUPER LE PAQUET»x*«****««« 

P0INTEUR=INTRND<32> 

IF P0ÏNTEUR<10 OR P0INTEUR>20 THEN 700 

PRINT POINTEUR: PAUSE 

FOR I=P0INTEUR+1 TO 32:F0R >1 TO 4 

CARTE* ( I -POINTEUR. J)=TRI*<I J) 

NEXT J::NEXT I 

FOR 1=1 TO POINTEUR: FOR J= 1 TO 4 

CARTE»(I + 32-PDINTEUR, J)=TRI$(I, j) 

NEXT J:NEXT I 

CLS "WBC" 

FOR 1=1 TO 32 1 PRINT CARTE*< I , 2 ) :NEXT 

PRINT "ENCORE (0/N)?" :RP*=KEY*: IF Rp*=' 




0"THEN 700 ELSE EI30 



!« DISTRIBUTION h 

1=1 tPOINTEUR-1 

FOR J=1 TO 4 

EXL* <I,J)=CARTE*< POINTEUR, J> 

JOUEUR» (I. J>=CARTE*( POINTEUR *1 J> 

NEXT J 

IF 1=16 THEN 330 

1 = 1 + 1 : POINTEUR-POINTEURS 

GOTO SGO 

FOR 1=1 TO 16:PRINT EXL*(I,2)j" "jEXLff 

PRINT J0IJEUR*U,2>;" "; JOUEUR* < I ,4) 

PAUSE 

NEXT 











3 '•« FWER 


■NI 


: '-','. ■■•■ 
• ... 


*Hi 


7 'Ht n. CAIUARD ...' 


8 '«. 


*.*"' 


10 Olii M5I.BI5) 


RS),»(5!-C»(S),M!î0l 


1! CKEDlTMO:ENJ 




13 au amw 


"0C1E3F3F3F1F0F0703O1") 


13 CAU CWfldOB 


'3078FCFCFCFBFOE0CO90" ) 


1* CAU CHARdffl 


"0103070F1F'FOF07Q3Oï"i 


15 CAU CHARM10 


'BOCOE0F0F8FBFOEOCO90" ) 


16 CAU CHARdll 


TV 130101") 


i? au o**<ii: 


"bococo8090fcfc3B90bo" 1 


1SCAU DWBIH3 


'"-rOCOIOI"* 


13 CAU CHARdU 


WOEOFOF8F8FBB08080" 1 


20 CAU CHAR! 37. 


■ EDEOEOEOEO") 


21 CAU CHAROB. 


FFmT0OOOO0OO0O0O00 , ■ ) 


:: au dharos. 


F1TFFF 07070707070707") 


H MU CHWMM 


"E0EOE0E0EOEOE0E0EOE0") 


2* mu. charmoi 


■■7070707") 


s eau cwriicc 


"EOEOEOEWOEOEOFFFFfT" ! 


26 au CHARt 103 


"OOOOOOOOOOMOWFFFFF") 


27 CflU CHAR* 10* 


"0707070707070 TFFFFFF") 


28 CAU CHAfldOS 


■'010:050AU28SOA040BO") 


29 CAU CHMdOE 


"eo*OA0502B1»OAO5O20r > 




31 CAU E!ŒC<50'3;' 


3: CAU POKEt506ea.1b5.3,6 T 10>:CAU ffJKEf «156. 138.0» 



17 '.« DESSIN DES CARTES «m 

13 ! 

.0 CAU CXrjH"1b*l"):f0ft I=v TQ 4:LCCATE n,2*I»B>:PRINT "attotCiNEXT 

1 FOR J=2 TQ 7:F0R 1=0 T0 4:LQCATE (j-îtlufl) :PRI(ff ".1 e" :«E)(T:NEÏT 

.2 F»' 1=0 TD *:LÛCATE ;8.:.I.B):FRIN7 'foqaqt,":*XT 

3 DATA 11,22,33,44,55 

.4 RESTORE 43 

.5 CAU CDLOR("0RU_"):FQR 1=0 T0 4:F£A0 E«:L0CATE C3, J*l»8> ;PftIMT Et:NEÏT 

S RETURN 

,8 i<hh> CARTES RETOURNEES wt 



. CASTES ELANCHE5 . 













RETURN 






'.« LESERIfl IûN FIGURES M* 




































































GOSIB 5t:G0SUÊ 178 






'«m FflEMIEFI DONNE «h 







12 MMÏ)NI7.E:AdMWT(RND»J2!.l 

■■■..■ :■ ■ 

14 IF A(2)=Ad)T)€N 83 
: : . -.i:;, = :nTfRNO,32) 1 1 
i€ IF <!<3)=AdJ0R A<3)=At2)TH£N B5 



'j A<;o = :«7;RNDii32).1 

10 IF fl<S)=A(1)0R A(5)=A<2)OR A<5>=A(3)0R Ai 

1 GOSUE 36:G0S1E 59:COSUE 1t5iG0TD 17?. 



33 ,.. CAPTES DONNEE;- - 



SE FOR N 

37 IF '.i 

38 IF M 



101 !F A 

!!): :f *■ 

103 IF A 

104 IF fl- 

io; F a 



)=28 THEN Xt(N)="'0" 
!)=39 TFCN M(N)="V" 
1=30 TtO *1(N >=■[)" 
')=31 THEN 11<N)="R" 



/( 



L _ 
22 



10E IF AINX17 AND A<N>)8 T>EN Ct{N)="n" 

107 IF AINX25 IW) ACN))1E THEN Cl<N)="op" 

108 IF AIN)>24 THEN C»(N)="qr" 



t AFFICHAGE CARTES * 



5 FOR 1=0 TG 4 

6 IF A<It1)d7 THEN CAU COLQRC'IFW") ELSE CAU COLORdtEW") 

7 IF <HIt1)="10"THEN 121 

B FOR 3=0 TD 1:L0CATE (2,3.Irt.J.3):PSINT M(M) 
S LXATÉ <7,3tI«atJ»3t:FflIOT XKIdkNBT 
■0 LXATE L5.4ti*fi)!l>RIWT DlUtl HGOTO 122 

.-■ i.I.B):PR.W XKI.1):LCCATE C7.5» I»8) :PRrHT W(It1):G0TD 13) 

2 l€XT:Rt~TURN 

3 ! 
:» ... CLASSEMENT DES CARTES ... 



7 FOR N=t TD 5:ÈIN),C(N)=*.<N):NEXT N 

S IF BH)(=B(2)«C BdX=B(3)AND ed)<=S141AND B<1X=e<S)THEN 133 

3 IF BI2)(=eM)AND B(2X=B(3)AND B(2X=B(*)ANEi 6(2><=»3<5)TW£N 146 
IF B(3H=€d)AN0 B(3X=8(2)ANE B(3X=eU)ANC B< 3) (=6(5) THEN. 148 
11 IF 6(i)(=6d)ANTJ B(4X=B(2)AND B<1X=6(3)AND EW)(=8(E)THE» 150 



•* IF Ci:)(=COJAHD C(2X=CU)ANO C(2)(=C[5)TNEN 138 

5 IF C<3K=C(7JAND C(3X=C(4)ANB C(3X=C<5)THEN 151 

S IF C(*)(=C(2)AND CUX=C(3)AND C(i)l=C(5)ThEH 156 

7 GOTO 15B 

S GGSUB 164 

9 IF BOX4UJAND E(3X=3(5)TtCN 142 

IF EUH=ei3)AND BUX=e(S)T(CN 160 

1 GOID 162 

2 COSie 166 

3 IF CUK=€!5)1>EI 1*5 
* CU>=B(5):C<5>=*(1) 

5 RETURU 

6 8(1)=C(2):B(2)=Cd! 

7 GOTQ 133 

S Bd)=C13):B13)=C(D 

3 GOTO 133 

Bd)=C!*):B(4)=Cd) 



2B<1)=C(5):BI5)=C(1) 
3 GOTO 133 

a C(2)=S(3):C(3)=B(2) 
5 GOTD 138 

£ f;..;>=fiU):C'*i=t;:;) 

7 GOTO 138 

8 CI2)=B(5):C(5>=B(2) 
3 GOTO 13B 

B(3)=CI4):Ë(4)=C(3) 

1 GOTO U2 

■2 Bi3)=C!5):B(5)=C(3) 

3 GOIO 142 

J FOR N=1 TQ 5:B(N)=C1N):NEXT N 

5 RETURN 

A FOR N=1 TO 5:C(N)=R(N):NDT H 

7 RETLRN 



1 LûtflTE !22.10):CAU COLtR!"»!Y");PRINT "COrtWCE :" 
1/3 LOCATE (22.22) :ACCEPT BEEP UAUDATE<"ACS")SIZE<1> .» 

174 IF Rt="A"TFEN CALL EŒC ( 50*33 ) :CAU HRCfF:CLS "BCCiEND 

175 IF W=-C"TNEN 132 

176 IF W^VTHEN 203 

177 GOTO 172 

17B IF CREDIT=0 THEN 287 

173 LOCATE <22.5):CALL COLORCORyi^INT " HONTANT DE LA «SE » 
1B0 LCtATE (22.26) :ACCEPT BEEF VALIDATE<0IGIT>SIZEU)NLI_Ld).l1 
1B1 IF M1CREDIT TF£N N=CKEDIT 

182 ENJEL=fl:IF ENJEU=0 ANO CREDIT» THEN ENJEU=1 

183 CAU C0L0R("0Tf"):L0CATE (22,7):PRINT " 
13* CREDITiCREDIT-N 

185 OU COL0R("0br ll ):LCCATE UB.36):F*M ENjEU 

1B6 LOCATE (K.36):FRINT " 

1B7 LOCATE (20.3E>:PRIKT CREDITiRCTURN 

189 tHW OEUXIBE DONNE x» 

131 I 

132 CAU COLORC'ORT-'lîLDCATE {22.5):fRINT "CARTE? (Eï: 125) " 

133 LOCATE (22.22) :ACCEFT EEEF yALIDATE("12345-')SIZE(S),01 

134 LCCATE (22.5);PRINT " 

195 FOR N=1 TO 5:C(N)=A(N) 

196 FOR N=1 TO LEN(DI) 

137 IF WL(SECt(D»,H.1»ON TNEN 202 

138 EIN)=[NT(RND.32).1 

139 FOR 1=1 TD 5iIF B(N)=A(I)T>EN 13B 

200 NEXT I 

201 A1N)=3(N):IF A(N)()C(N)TTEN 203 



W GOSUB 2E3:G0SUB 36:G0SUe 274 

S ! 

ib 'mi CALCUL CES POINTS HH 



209 CAU COLORCORVIiLOCATE (22.5):FRINT "CALCUL DES POINTS ' 






' casue 117 

: IF C(5)=1.Cll)Atfl C(5)=M(3)Atfl C15)=3.C(2)AK1 C(5)=*4C(11T>€N £13 

! GOTO 214 



OR C(5>=32 THEN X=15:G0T0 235 



:=10:IF C(5)=fl K C(5)=1E OR C(5>=ï 

4 FOR N=1 TO 5:A(N>.B(N)=C(N) 

5 F*: N=1 7B 3:IF B(NK9 THEN 217 

6 E(N)=B(N)-8:hOr H 

UtKXT N 

S GÛSLB IZfi 

13 IF C(1)=C(2)ANÛ C(1)=C(3JAND E(1)=C(4)ThHN X=8:G0T0 235 

» IF CCXOîANO C(!)=EU)AND C<2)=C(5>TI£N *=8;COT0 235 

>1 IF C<1ï=C(Z>hVC E!1)=C(3>AND C(1)=CI5)TKEN X=7:G0T0 235 

î IF CM1=CI2)«C C(3)=CI4)ANE C(3)=C15)THEN X=7:COTCJ 235 

13 IF «K1X17 ANC A12X17 MO A(3K17 AMI A(4X17 AND A(5)(17)THEN 233 

i IF (A<1)>16 «0 *(2)I16 AND A(3))tE AMD A(l)>16 AMD A(3niO)TH£N 233 

5 TF ClSiî'tCM ■. WD Ci; ■'.-.: -ilHCN GCTÛ 234 

5 IF CdXOAWL. Ci!i-"C. :,.■!*;. :m:G0JO 235 

9 IF (CUKO ■ . 3>=C(5))THEN X=1:«ÏÏ0 35 

8 IF C(1W(ZMI : î:GOTD 35 

•3 IF iCi1)=Ci2>AND C(4)=C<5))DR (C(2)=C13)AND C 

IF <C(1)«2)ANC C(1)>4)Ofi (C(2)=C(3)ANJ3 CCI) 

m if (C(3X(oand camion œun: ■■■:■■ 

12 COTQ 2*5 

X=6;GOT0 235 

a X=5:GOT0 235 

fi ENjEU=£NJEU.X 

6 CALL COLORCttriiLflCATE MB.3G) :PRIHT ENJEU 



[4>=C(3>>THEN ï=2:G0r0 235 
)4)THEN X=1 :C0T0 235 
:1:GQTO 235 



274 F» N=1 70 S:IF A(NJy2tH)THEN 232 

?5 S^i*^ A,N,<17 ^N "L 1 COLORC-'HIH-} ELSE EAU. C0L0RC16U") 

276 FOR 1=2 TU ?:LOCATE <I.3.Y>:PRINT " ":NEXT I 

277 IF Xt(N>=' : 1Û"THEN 2BO 

278 FOR la) FO 1;ï=I»3*Nrf-5:LCCflIE (2.(>:FRINT Kt(N):LCCATE (7 H 
273 PRINT XMNCNEXÎ I:C0T0 291 

2B0 LOCATE (2.N»8-5):PRINT ■■lû'.'îLCCflïE I7.N.8-3) :fRINT ■10" 
2S1 LCCATE I5.N*S-1):PRINT CMN) 
232 NEXT N:RETURN 



* FIN DE PARTIE ► 



ZS3 I 

281 i 

285 'i _ 

266 ! 

237 CALL COL0fi("0fiY"!rLXA7E ; 22. 1 : ) :F-RIWT "NOIAtAU CREDIT' (0/N)" 
288 LCCATE 22 - > ET t i * «I lui.» 

283 IF *="«■ IHEN CALL £jŒL.<;,0i39.':.ri ■?.c. : - : call WDFF:ENC 
■10i6ÛTO 215 

231 CALL HROFFiC.il, r,[; 50432 '■ :L!. 3 "M'Y": MU. EOLDRI "ORELI" ! 
292 LDCOTE i2.13);PRTNT "P8RRAAWC0 ' i":CALL COLORCObT") 

::-.:i ;.j:,',ie .5. :- : f*..inï ".eus [ïeî tf.cs fort- 

231 FRINT:PRINÎ "UOUS (WEI IIS LA BANâLC A ICCQUVERT," 

235 PRINT: PRINT :PRIIT "UOT^E 1-Kn IC" i '■ -î - ; ■'■ 

236 FfiW:PfiINT:PRINT "UNE AUTRE PARTIE' lO/NP 

237 LÛCATE ( 13.25) :ACEEPÎ BEZP UALIDATE("ON"tSIZïf 1) S* 
239 IF «="'.'■ ■ : ;ii "EEC'iCftLL Hfïi>T:E?ti 
233 CLS 'm":CRETJIT=10:G{ïrO 31 

300 1 

301 'm REGLES ET FIGURES «. 




T EU DOUBLE •** 



_._ IF Rrt=-'0"TWEN 241 ELSE IF Hf ff'THEN B. 

:.a :r€[.r<.FïC!iT,ENJÈL:rF ceedit>=ioooo then 231 
2JS EAU. COLORCObT" IiLDMTE 19, 36 iiPftlW " 

246 LOCATE i20.26>:FRINT CREDIT 

247 COTQ 77 

2*8 COSUE 51:A(1)=INnRNDi32h1 

243 G2SLIB % 

230 EAU. EOLEfrWllLOCATE :22.5>:FRIMT "EEOEIJR' (N/R) 

251 LCCATE !.:; . :.!ii T E- ,, NR ,, iSrZE(1).F* 

252 IF ,AI1)i17 AK, FI»" 1 !" ■■DR -,vi :■ -f, -»: -■(="«" ITHEH 255 

253 CALL COLDRrOKiÉL-' ! llQCATE (22.5):FRIMI " fp EE RR CO UU " 

254 CCSUB 257:GDTD 245 

255 EALL C0L0R("0RWL ,, !:l3CATE i22.5»:FRINT " CC AA GG * EE " 

256 ENJEU=£Njeu,2:CQ5UE 257 : CDTa 23E 

257 IF A(1)(17 T1CN CALL COL0R("1Rr> ELSE CALL COLORC'IEM") 

258 FOR 1=2 TO 7:LJCArE ■[.jJ:f*INT " ":NEXT I 
253 IF X((1)="10"THEN 262 

2E0 FUR 1=0 TO 1:L0CATE '2. JtJ.S) iFt^T .;ii ■ -.ilDEA'E a. 3.1.31 :FRINI t. 

261 NEXT I:GOT0 263 

:S2 :_QCftTE :2.2)\Î*W "10":l:ESIE i? SPRINT '10" 

263 LECATE (5.4I:FUINT CHDlF'AUSE 4 

264 RETURN 



. AFF, Ù 



S 2ew WHt£ i. 

,3 FOR N=1 TD 5rIF AIN)=C(N)THEN 273 

'0 Y=!N-1)t8:CALL CX0R^"1bC'■! :FOR 1=2 TO 6 STEF 2 

'1 LCCATE (I.3.Y):FRINT ":.,ij":LOCATE (l.t.3(I):PRINT " 



304 OATA 17.11.3,30.26 

305 DATA ■■£. .'i r2 •■ '■i 
3OE0ATA 11,22,13,19.3 
307 DATA 3.21,12.15.30 

306 DATA 17,26^,25.21.32 

309 DATA 11,6 

310 DATA 5,!3,2t,23 17 

311 DATA 26.2fl.27. 30 ;3 

312 DATA 8,5,6,7,J 

313 FOR 1=1 TO 5:KEAD ft(I):NEXT I 
;GCSUB 53:G0SU£ 115 

315 RETURN 

316 as "abb": LCCATE r;,i5) ; CALL CCLORI "ORLHIF" ) :PSIMT "PPQDKKEERR" 

317 LOCATE (3.13):FRINT "PfttMC£Hr iCdL CDLQRi"OYbL") 

318 LfXATE (7.2!:FRINT "f2CDONNM««II5SSSEE:Z--WCaiUSS 1 ' 
313 LOCATE (10,5):PRIN1 FfCOOtEH» EETT" 

320 LCCATE (13. 10):PRM "SSEESS FFIIGGUURREESE »» 

H.1SI iPBM ":■ tu *>)' 
. : :. ■V( = ,-.f :5 .;r if.-- :"lh£W 3EE ELSE IF R«()"N"T(CK 322 

323 AI(2>="L£ FTJKER SE JOUE AWI UN JEU DE" 

324 At(41="32 CARTES, A EHAOUE DONNE. 'JOUS OEUEr" 

325 Ali6)="(1ISER. FLUSIEURS EDWANDEB SONT" 

326 AI(8)="DISFWIELES APRES LA PREMIERE DONNE:" 

327 AH10)="C: CARIE S: SEWI AtARRîT" 

328 At(12)="LA COTWCE A' STOP LE JEU" 
323 A1..U!--"., 

. X .A PKUESE DONNE" 

331 A1(18I="U CONNANœ *C WUS DON* LA" 

332 A!i20)="FDSSIETLITE :C REMPLACER OES CARTES." 

333 CÛ5U8 367:F'AOSE:ELS 

334 AX2>="LE 6UT EU JEU E3" 

335 «U!="«WS RAPPORTANT GROS!!" 

336 AI(6i="NDUS ALLONS NAINTENANT WIK LES'" 

337 A«<8 ^"DIFFERENTES FIC4ISS DU POKER." 

338 AinO>.M(12>,M<H),M<16LA»(1S>.A»<20/="" 
333 GOSUe 367:P0USE:aS 

340 CLS "GEC":CALL riRONC'C" 10 !):iJ.S "6EC":GDSUS 40 

341 RESTORE 304:Al(12l="PPAAIIFîREE HWAB8I ILLLLEEEE" 

:i2 Aiii*)=-sorT: : jalF's.z mes. 2 -;c:s au 2 aë" 

]i3 A*:lLi="":At ■-■-- GAIN: L* ItlSE'lGtBB 372:RESTOF£ 305 

341 flIM2)="DD00ULEELLE£ PPAAIIPREf.":r1li U)= 2 PAIRES 'AILLEES Ou Ni 
315 AM18)="GAIH: 2 POIS LA 1ISE":CaEUE 372:RESTDRE 306 

K*l>="3 CARRES CE .-BiE JALEJR" 

NISE":EaSU8 372:RESrORE 307 

l*)="5 CARTES WI SE SUI'JENT" 

COULEUR OU LE SIGNE"tAt(18l='^;N:5 FClî ^ 



.6 Aii12) = -EÎJM-:ELLAANN":i 
_7 A*(t8)="GAIN: 3 -OIS i 
348 Aït1Z)="5SLOIITTEE":fi! 
■' ■** iet="QLELÛUE SOII U 
350 EBSLE 372;REST0RE 306 

^'TXOOUlljrElJLRR 1 

E)="(RÛLGE DU NOIR) 



s x rtFJt ecule:jî" 

... 6 FOIS LA «ISE^GOSUR 3^ 
333 RESTORE 303:Al(12!="FFHJLLLL":Aii:i)="2'EiT UN tRELAN El UNE ffiiRf' 
■ " ="":AK18)="CAIN: 7 FOIS U NISE':3CSUE 372:RESIDRE 310 
■■■„■■■■■- ■:.»'ili = , 'i CAPTES C£ r€hE VALEUR" 



356 A 

... ..»il6)="IBe SIGNE. SANS AS":At<18>="GAIN: 10 FOIS LA MISÊ'^GCSLe 372 

359 RESTORE 312.'Aii12)="FF L LHISS* RRDCïïAALL , :AV.ij: = ■'■■} '.'At.ET.3AnE RC: , 

360 AK16!="NEHE COULEUR, rCft SirjNE":Ali1S)="EAIN: '5 FOIS ,i< nISE":'2J]SUÈ 372 

361 CL3:CALL EOLQR("0bC"l;L0CArE (14,2) 

362 FRINT "WJLE2-VOUS RT.'Cii- CES "I3iJf_:; - , :LJM:t ''S ■0!:">1W- "iJ.N-. 

363 Rl=>iETl:IF R»="0"T1CN 365 ELSE IP R5.-.!"N"THEN 363 

364 CALL HRDFF:EALL EXEC ( 50432 ) r GOTO 366 

365 EAU. HROFF:CALL EX££(50132):GnTD 310 

366 RETURN 

367 CLS ■■BE8":PDR 1=1 TO 2O:F0R J=1 TD LENIAKD) 

369 EALL COLUR("0BE"):LCCAIE H.JI.'fRINT " " 
363 CALL EOLCRCOye"):LCCATE (I.J):PRINT 5EEKAH I) . J, 1) 

370 CALL P0KE(258,33,152):NFj;T:L3ALL P0KE(253,45I;NEXT 



T RETLBN 

2 COSU8 51 :ELS: 

373 CL5:CALL EOLDRrOHLIF 

374 LCCATE (12.*! :F-RWI -' 

375 LOCATE (!4.2):PRINT i 

376 lccat; ■■■ 

377 lccate (20. .:;-.■ :.-pj-! 
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'=(40-LEN(AK12)))/2 
12):CALL COLORC'ObC") 
14):LCCATE (16.2);PR1N1 
18):CALL COLOSC'OfiC") 
../,..":P6LBE:RETURN 



DOSSIER 
SPECIAL 



EXELRESEAU 



Un 



/n an déjà ! Le Plan 
Informatique Pour Tous a 
un an! 

Pour mieux comprendre 
les données actuelles et 
les enjeux futurs, 
replaçons-nous à 

l'époque où le choix du 
matériel allait être décidé. 
Plusieurs impératifs 

apparaissent aux yeux 
des dirigeants du plan 
I.P.T. en février-mars 
1985: 

- assurer une continuité 
indispensable en matière 
de logiciels éducatifs. 

- se mettre à l'abri d'une 
faillite étrangère 
(Sinclair, Oric.Lansay, etc. 

) 

• choisir un constructeur 
capable de produire 
suffisamment, de 

proposer un clavier 
AZERTY , un langage 
LOGO, un SAV sur le 
territoire français... 

- ne pas dépendre des 
états d'âme d'un 
importateur 

- si possible opter pour du 
matériel français. 

Comme vous le savez, 
deux constructeurs, dont 




Exelvision, ont été retenus 
pour équiper les 

établissements scolaires 
publics. Cette dotation a 
été pour nous une phase 
importante et a renforcé 
notre détermination à 
proposer sur le marché 
micro-informatique un 

ordinateur à vocation utile 
en lui apportant 

progressivement un 

avenir pédagogique réel. 
L'avenir est devenu 
présent puisque plusieurs 
de nos projets voient le 
jour en cette rentrée 1986 



et nous vous invitons à les 
découvrir... 

La situation 

informatique des 

écoles et leurs besoins 

réels. 



L-e plan Informatique 
Pour Tous se devait 
d'exister; aussi, afin de 
marquer son démarrage, 
il fallait qu'il soit 
spectaculaire, 
synchronisé, et si 
possible, pas trop brutal. 



Très tôt cependant, 

différents problèmes et 

remarques virent le jour: 

-matériel en quantité 

souvent insuffisante par 

rapport au nombre 

d'élèves. 

-place du matériel 

souvent sujet à 

discussion. 

-manque de formation des 

instituteurs sur le matériel 

reçu. 

-position critique et 

souvent critiquée du 

professeur qui s'occupe 

du matériel. 

-usage encore trop 

confidentiel des MODEMS 

et besoin d'une structure 

télématique 

auxiliaire centrale 

commune. 

-logiciels fréquemment 

inadaptés à une utilisation 

scolaire de groupe. 

-etc. 

Tous ces problèmes, 

entraves à la réussite 

complète et durable du 

plan I.P.T., sont ceux qui 

résultent de cette 

première année de 

l'utilisation de l'ordinateur 

à l'école, et il est normal 

qu'ils apparaissent. 

Ils permettent de mettre 

en avant les besoins et 

donc les solutions à 

adopter quant à: 

-l'accroissement du 

nombre de postes de 

travail dans chaque école 

-la formation des 

instituteurs 

-l'amélioration des 

possibilités de travail 

(lecteur de 

disquette.souris.etc.) 

- l'adaptation qualitative et 

quantitative des logiciels 

à un usage scolaire 

iustifié et motivant. 




tr 



Voici les principaux 
problèmes auxquels, 

nous, Exelvision, avons 
réfléchi en regard de 
l'expérience de plus de 
750 enseignants qui nous 
ont fait part de leurs 
problèmes et par 
conséquent de ce qu'ils 
attendent de nous. 
Ainsi, nous avons travaillé 
simultanément sur trois 
projets qui convergent 
vers ce que l'on est en 
droit d'attendre de 
l'informatique à l'école: 

-l'utilisation dans une 
même salle de plusieurs 
EXL100 reliés les uns aux 
autres par une structure 
de réseau local. 

la création d'un langage 
Auteur universel 

permettant la conception 
et l'utilisation massive, 
durable et crédible de 



- la mise en place d'un 
mode de diffusion 
généralisée de ces 
logiciels qui serait en 
même temps performant, 
simple et surtout 
économique. 
Signalons, avant 

d'approfondir ces 

différents points, que 
certains renseignements 
techniques concernant le 
système EXL 100 et ses 
périphériques sont 

disponibles en annexe. 

Notion de RESEAU et 
de RESEAU LOCAL 



Un 



n réseau est une 
structure matérielle et 
logicielle permettant 

d'établir une 

communication 
informatique (appelée 

aussi télématique ) entre 
un ou plusieurs 

ordinateurs. 

La distance qui sépare les 
ordinateurs peut varier de 
quelques mètres à 
plusieurs dizaines de 
milliers de kilomètres! 
Seul le moyen de 
transmission des 

informations devra être 
adapté à la distance: 
-de 1 à 100m: câbles de 
liaison directe 

- de 100m à 2000 km: 
réseau téléphonique 
traditionnel 

- + de 2000 km: réseau 
télématique via satellite 

Un réseau local est, 
comme son nom l'indique, 
une structure d'échanges 
entre un ou plusieurs 
ordinateurs situés au 
même endroit et reliés par 
25 



de simples câbles; ce 
dispositif est autonome. 

Les réseaux utilisant un 
moyen de transmission 
externe sont en revanche 
utilisés pour des 

applications 
géographiquement 
étendues: l'ensemble des 
9.000 écoles équipées 
d'un EXL 100 forme un 
gigantesque réseau qui 
utilise le réseau 

téléphonique. Dans ce 
cas, ce ne sont plus les 
paroles (phonie ) mais 
des informations {matique 
) qui font que le réseau 
prend, pour la 

circonstance, l'appellation 
de réseau télématique. 
Le modem joue en fait le 
rôle de "traducteur" de 
courants électriques en 
signaux sonores (et 
inversement) capables 
d'être transmis par le 
réseau téléphonique 

traditionnel. 

Certains réseaux 

informatiques, comme 
celui d'AIR FRANCE par 
exemple, sont conçus de 
manière que chaque 
poste télématique isolé ( 
terminal informatique) ne 
puisse communiquer 

qu'avec un seul et même 
poste central qui recense 
et traite toutes les 
communications. 
Ce type de central porte 
couramment le nom de 
centre informatique, 

central télématique, ou 
encore, dans certaines 
applications, le nom de 
SERVEUR. 

Chaque EXL 100 équipé 
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d'un modem ( 17.000 en 
France) peut d'ores et 
déjà choisir librement son 
correspondant 
télématique et pourrra très 
bientôt bénéficier d'une 
structure centralisatrice 
capable de traiter 
plusieurs milliers de 
communications 
simultanées; nous en 
reparlerons plus loin... 

Voyons maintenant par 
quel moyen il est possible 
de ramener aux 

dimensions de la classe 
ce schéma de dialogue 
entre ordinateurs afin de 
synchroniser certaines 
opérations ou bien par 
exemple de répartir un 
travail sur plusieurs 
postes élèves. 



L'EXELRESEAU:un 
réseau local adapté 
aux écoles primaires 



t lusieurs critères très 
importants nous ont 
guidés dans l'étude de 
l'EXELRESEAU afin que 

ce dernier présente: 

- Un prix de revient le plus 
bas possible. 

- Une structure évolutive 
et modulaire. 

-Une simplicité 

exemplaire d'installation 
et de mise en oeuvre. 

- Une utilisation totale du 
matériel déjà reçu en 
dotation I.P.T. 

- La conservation des 
atouts télématiques de 
cette dotation initiale. 
Tous les détails 
techniques et exemples 
d'utilisation de 



l'EXELRESEAU sont 

décrits en annexe. Nous 
nous bornerons donc 
dans ce chapitre à 
expliquer les solutions 
adoptées en regard des 
critères choisis. 
Signalons tout de même 
que l'EXELRESEAU se 
compose de 2 à 20 postes 
de travail qui sont tous 
des EXL 100. Les 
échanges de logiciels et 
d'informations en général 
se font à partir d'un poste 
vers le ou les autres 
postes. 

Une organisation 

analogue à celle d'un 
réseau de type AIR 
FRANCE 
(central/terminaux) 
a été choisie pour 
l'EXELRESEAU, ce qui 
confère à l'un des EXL 
100 le rôle du poste du 
maître tandis que les 
autres sont des postes 
"élèves". Chaque poste 
élève est un élément du 
réseau local et est relié 
aux autres par un boîtier 
de connexion EXELBOX. 
Le poste du maître 
dispose également d'un 
EXELBOX lui permettant 
de s'isoler 

momentanément du 

réseau. 

A l'inverse de certains 
"réseaux" concurrents, 
l'EXELRESEAU ne 

nécessite pas d' 

ordinateur destiné 

uniquement à piloter les 
autres: chaque EXL 100 
ELEVE peut fonctionner 
de façon autonome et 
partager les ressources 
logicielles et matérielles 



de l'EXL 100 MA/TflE. 

Le poste maitre se 

différencie des postes 

élèves par le fait : 

-que les échanges entre 
postes élèves passent par 
lui. 

- qu'il dispose d'un lecteur- 
enregistreur de disquettes 
de forte capacité pour las 
auvegarde et la 
distribution des logiciels. 

- qu'il gère l'édition sur 
imprimante des fichiers 
échangés. 

monde extérieur. 

-qu'il conserve à 

l'instituteur son rôle 

essentield'animateur- 

iuas 

enfin, et c'est la 
conséquence de la 
conservation de 

"l'intelligence locale" def 
chaque poste élève, le 
poste maître peut 
é galement être utilisé en 
tant que poste élève : il en 
résulte une utilisation 
optimale du matériel. 

L'installation d'un 

EXELRESEAU va de 
pairff avec sa modularité, 
puisque chaque 

EXELBOX s'alimente à 
partir de celui du voisin 
(20 EXELBOX au 

maximum) ce qui limite le 
nombre de cordons de 
raccordement. L'EXL 100 
est relié à son EXELBOX 
par un seul cordon. 

Le langage AUTEUR : 

le logiciel éducatif 

devient adulte 



Il faut savoir que le 
marché du logiciel tel qu'il 



existe encore à l'heure 
actuelle, avec toute la 
chaîne de distribution qui 
en résulte, ne peut 
réellement fonctionner 
qu'avec des logiciels de 
jeu (et éventuellement de 
type "utilitaire 

professionnel"). 
C'est en effet ce type de 
logiciel qui provoque 
l'attrait irrésistible des 
enfants et qui est capable 
de pousser ces derniers à 
en faire l'acquisition. De 
plus , il suscite un intérêt 
qui décroît, rapidement 
certes, mais d'une 
manière continue et l'on 
établit en moyenne qu'un 
logiciel de jeu est utilisé 
entre 20 et 100 fois avant 
de sombrer dans les 
oubliettes. 

En revanche, le marché 
du logiciel éducatif est en 
position beaucoup plus 
critique même si sa 
vocation est beaucoup 
plus noble. En effet, il va 
de soi qu'un logiciel 
éducatif, même 

remarquable, perd 

considérablement de son 
intérêt dès qu'il a transmis 
le message et les 
connaissances qu'il est 
censé enseigner. Il 
appartient quasiment au 
domaine du "jetable". 

Un problème se pose 
donc aux éditeurs de 
logiciels qui ont pour 
contrainte de proposer un 
très grand nombre de 
logiciels à un prix très 
réduit ! Trouver un thème 
différent pour chaque 
logiciel reste du domaine 
du possible. A l'inverse, 
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imaginer un scénario 
différent ainsi qu'une 
présentation suffisamment 
"commerciale" et originale 
à chaque fois, est 
beaucoup plus difficile et 
pas forcément 

souhaitable. 

La solution proposée par 
un langage de type 
AUTEUR est de 

considérer qu'une partie 
du logiciel est fixe et que 
seule la partie qui 
caractérise le thème et le 
contenu éducatif du 
logiciel est 

interchangeable. Ainsi , la 
partie fixe permet 

d'exploiter ce contenu 
bien sûr, mais aussi de 
créer un bloc de 
connaissances nouveau : 
l'utilisateur peut devenir 
AUTEUR; il s'exprime par 
l'intermédiaire d'un 

langage auteur. 
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EXELQUAD : des 

logiciels éducatifs à 

discrétion ! 



I_e langage auteur 
EXELQUAD a été et 
continue d'être une phase 
importante de l'adaptation 
du logicel éducatif à ses 
réelles prétentions. 

L'analyse des problèmes 
posés ci-dessus par 

l'édition d'un grand 
nombre de logiciels 
éducatifs nous a poussé 
à imaginer un logiciel 
universel suffisamment 
polyvalent à l'intérieur 
duquel il serait facile 
d'incorporer tout le 
"savoir" que l'on veut 
transmettre. 

Il apparaît chez les 
enseignants un désir 
général d'utiliser des 
logiciels dont le contenu 
pédagogique soit plus 
consistant d'une part, et 
d'autre part, comportant 
moins de "fioritures 
commerciales" et moins 
d'interludes musicaux : en 
somme, moins de pertes 
de temps. 

EXELQUAD est donc né. 
Il a été étudié dans le but 
de répondre aux besoins 
suivants : 

- Transmettre un contenu 
pédagogique consistant. 

- Faculté d'adaptation à 
tous les types de 
messages pédagogiques. 
-Un rapport 
performances/si mplicité 
d'utilisation optimal. 
-Bénéficier d'un système 
de diffusion pratique. 



L'utilisation de 

l'informatique à l'école 
suppose, pour être 
crédible, une 

consommation non 

limitative et suivie de 
logiciels adaptés. Elle doit 
être un outil de vérification 
des connaissances en 
même temps que le 
moyen de capter l'intérêt 
et la motivation des 
élèves. 

Un outil de test des 
connaissances ne peut 

s'envisager réellement 
que s'il est capable de 
suivre l'actualité 

éducative de la classe. 
C'est pourquoi 

EXELQUAD proposera à 
partir de la rentrée 86 un 
ensemble de logiciels 
répartis, pour chaque 
classe et pour chaque 
matière, sur les trente-six 
semaines de cours que 
compte l'année scolaire. 
Ainsi, les classes de CP, 
CE1, CE2, CM1 et CM2, 
de même que les classes 
du premier cycle 

secondaire (6ème à 3ème 
), verront leur 

bibliothèque de logiciels 
dotée de plusieurs 
centaines de logiciels 
conçus par une équipe de 
50 professeurs et 

instituteurs. 

La mise en oeuvre 
d'EXELQUAD tient 

compte d'une démarche 
simple et logique 
assimilable dès les 
premières manipulations, 
de sorte que l'utilisation 
ne se trouve pas ralentie 
par les modes d'emploi 
"devinette" 




traditionnellement 
rencontrés sur les 
logiciels courants. 

EXELQUAD permet en 
outre de proposer tous les 
types de questions 
agrémentés ou non de 
graphismes, synthèse de 
parole, sons, etc.. 
De plus, il dispose d'un 
"mouchard", appelé 

également boîte noire , 
qui offre au professeur le 
moyen de contrôler a 
posteriori le déroulement 
du questionnaire et le 
calcul des bonnes et 
mauvaises réponses. 
Voici les caractéristiques 
générales d'EXELQUAD 
dont l'aspect sera celui 
d'une cartouche ROM 
enfichable à l'avant de 
l'EXL 100 pour ce qui 
concerne la partie "fixe" 
du logiciel. 

La partie "questionnaire 
interchangeable" prendra, 



quant à elle, un aspect 
nouveau... 



Le 

TELECHARGEMENT : 

du nouveau dans la 

distribution des 

logiciels 



No 



avons 

précédemment évoqué la 
notion de réseau 
télématique en citant , 
entre autre, l'exemple 
d'AIR FRANCE et celui 
des 9000 écoles 

équipées d'un EXL 100 + 
MODEM. 

Un réseau permet 
d'échanger des 

informations d'un poste à 
l'autre. Lorsqu'un poste a 
le privilège de 

communiquer avec un ou 
tous les autres postes, on 



l'appelle parfois 

SERVEUR. Un SERVEUR 
est en général beaucoup 
plus imposant qu'un poste 
TERMINAL car il 

centralise un grand 
nombre de données qu'il 
met à la disposition de 
l'ensemble du réseau. 

Cette particularité 

s'applique fort bien dans 
le cas où de nombreux 
terminaux doivent avoir 
accès aux mêmes 
données informatiques. Il 
est tout à fait concevable 
qu'un serveur soit destiné 
à envoyer à ses terminaux 
des programmes BASIC, 
des programmes LOGO, 
ou même des 

questionnaires 
EXELQUAD ! 

Cette application, 

comparable au 

chargement traditionnel 
d'un programme à partir 
d'une cassette ou d'une 
disquette, s'appelle le 
TELECHARGEMENT. 

Le TELECHARGEMENT 
consiste simplement à 
transférer un logiciel que 
l'on pourra utiliser une 
fois son transfert accompli 
: cela n'a rien à voir avec 
l'utilisation en temps réel 
d'un logiciel à distance 
(jeux sur Minitel ou 
consultation d'une 

banque de données par 
exemple). 

Le téléchargement d'un 
logiciel peut durer de 
quelques dizaines de 
secondes à quelques 
minutes, et ce, à un tarif 
de 0,77 F toutes les 45 
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secondes. En moyenne, 
un logiciel revient à 50 
fois moins cher (3 ou 4 
Francs) que dans le 

commerce et peut 
éventuellement être 

sauvegardé sur disquette 
ou sur cassette. 



Le serveur EXELTEL 

Le serveur EXELTEL est 
le centre télématique de 
tous les possesseurs 
d'EXL 100 munis d'un 
MODEM. Il a pour fonction 
principale le 

TELECHARGEMENT de 
logiciels. 

Il existe en France et de 
par le monde une 
multitude de serveurs, de 
tailles et de fonctions très 
diverses. La taille d'un 
serveur est déterminée 
par sa capacité à traiter 
plusieurs communications 
simultanées. Ceci 

implique évidemment 

l'utilisation simultanée de 
plusieurs lignes 

téléphoniques appelées 
également portes d'entrée 
dans le jargon 

informatique. Bon nombre 
de serveurs n'ont que 
quelques portes d'entrée, 
quelques dizaines, voire 
quelques centaines, ce 
qui dans ce dernier cas, 
est déjà imposant. 

Afin de pouvoir proposer 
aux 9.000 écoles ainsi 
qu'à tous les particuliers 
équipés d'un EXL 100 + 
MODEM (17.000 

MODEMs en tout !) un 
service de 

téléchargement 
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télématique massivement 
opérationnel, il nous fallait 
une structure comportant 
un très grand nombre de 
portes d'accès au serveur. 



Seul le plus gros serveur 
français était susceptible 
de nous offrir une 
infrastructure suffisante : 
6.000 communications 
peuvent être traitées 
simultanément par le 
puissant ordinateur dont 
dispose FUNITEL qui 
totalise près de 120.000 
heures de connexion par 
mois ! 

Vous l'avez deviné, le 
serveur EXELTEL sera 
accessible en appelant le 
service FUNI après avoir 
composé le 36 15 
(anciennement le 

36/15/91/77 ) à partir du 
25 Octobre 1986 . 

EXELTEL proposera, 

outre le téléchargement, 
différents services 

complémentaires: 

-Boîte aux lettres destinée 
à collecter les idées 
géniales des utilisateurs 
del'EXL100 ! 

-Un bulletin réponses et 
informations générales. 
-L'adresse du point 
EXELVISION le plus 
proche. 

- Une banque d'astuces et 
de remèdes en cas de 
pépin... 

- Les caractéristiques des 
périphériques 
EXELVISION. 

- Boîte aux softs destinées 
aux participants des 
différents concours (cf 
bulletin infos.) 



Les prix : une solution 
pour chaque budget 



I— e budget des 

municipalités, nous en 
sommes conscients, n'est 
jamais cousu d'or et 
rarement argenté. 

Néanmoins, afin de 
rendre le plan I.P.T. 
"vivant", bon nombre de 
villes et villages 

s'efforcent de consacrer 
une part de leur maigre 
budget à compléter 
l'équipement de la 
dotation initiale pour lui 
donner une dimension 
plus confortable au sein 
de leur(s) école(s) 
primaire(s). 

Dans le but de faciliter ce 
complément de matériel, 
nous avons choisi de 
proposer différents kits 
susceptibles de compléter 
de façon judicieuse et 
donc raisonnable le 

matériel donc vous 
disposez déjà. En outre, 
la liberté de choix 
concernant certaines 

options (moniteur couleur 
ou monochrome, souris, 
etc..) vous permet de 
définir soigneusement 
votre politique d'achat : 
pourvoir un maximum de 
postes élèves dont les 
performances pourront 
être accrues 

ultérieurement OU choisir 
d'équiper confortablement 
deux ou trois postes 
élèves en complément de 
la dotation initiale et 
d'avoir la possibilité d'en 
rajouter d'autres par la 
suite. 



BANC 
D'ESSAI 




S.O.S SPACE 

"il est 5h15 GMT à cap 
Canaveral, la météo annonce 
du beau temps. Le compte à 
rebours va commencer: cinq, 
quatre, trois, deux, un , feu. 
Dans un bruit de fin du monde, 
la navette s'arrache à l'attraction 
terrestre. graduellement la 
vitesse augmente jusqu'à 
atteindre 28 000 Km/h..." 

A le voilà, enfin un "space 
shuttle" sur IEXL 100. Nous 
devons cette réalisation à la 
société Minipuce, qui, avouons- 
le produit des logiciels de 
qualité. 

Présentation 

Comme vous l'avez deviné, il 

slegifaiion de pilotage d'une 

navette spatiale. Le but de la 

manoeurvre étant de placer sur 

orbite un satellite, le pilote 

devra, avant de se voir confier 

une mission prouver son 

adresse. 

3 Niveaux de jeu sont prévus: 

Elèvepilote, 

pilote, et pilote confirmé. 



Graphisme 

Côté graphisme, pas de 

malaise, nous avons droit à de la 

haute résolution. Les dessins 

sont bien réalisés et exploite 

toutes les capacités graphiques 

del'EXLtOO. 

Intérêt 

Si vous aimez les simulateurs, 

celui ne vous décevra pas. 

Type 

Ce logiciel est disponible en 

disquette seulement. 

Prix 

Entre 100 et 200 Frs. 




PINDO 

Présentation 

Vous êtes un gentil pengouin 

qui doit déplacer des cubes et 

coincer les monstres qui 

menacent votre espace vital. Ce 

jeu, entièrement 

écrit en langage d'assemblage, 

ne décevra pas les amateurs du 

genre arcade. J'allais oublier, ce 

jeu est encore signé "Minipuce" 



Graphisme 

De la haute résolution, bande 

de petits veinards. 

Intérêt 

Un jeu d'arcade sans histraire 

Type 

Cartouche 

Prix 

Entre 100 et 200 Frs 




VEGA4X 
Présentation 

Un "space invaders" qui va vous 

donner des crampes dans la 

menotte droite, celle qui tient la 

manette. Un très bon jeu 

entièrement écrit en langage 

d'assemblage qui contient non 

moins de 16 tableaux séduira 

les amateurs de space games. 

Minipuce a encore frappé. 

Graphisme 

Bonne réalisation classique en 

semi -graphique 

Intérêt 

Si vous aimez les jeux d'arcade 

n'hésitez pas 

Type 

Cassette 

Prix 

Entre 100 et 200 Frs 
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